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Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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FFFFFFFFFE 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD KK KK 000000 

FRFFFFFFFF 000000 RRRRRRRR RRRRRRRR EEEEEEEEEE AAAAAA DDDDDDDD KK KK 000000 

FF 00 OO RR RR RR RR EE AA AA DD DD KK KK 00 00 

FF 00 OO RR RR RR RR EE AA AA 0D DD KK KK 00 00 

FF 00 0O RR RR RR RR EE Aa AA 0D DD KK KK 00 00 

FF 00 00 RR RR RR RR EE AA AA DD DD KK KK 00 00 

FFFFFFFF 00 O00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA DD DD KKKKKK 00 00 

FFFFFFFF 00 00 RRRRRRRR RRRRRRRR EEEEEEEE AA AA 0D DD KKKKKK 00 00 

FF 00 OO RR RR RR_ RR cf AAAAAAAAAA DD DD KK KK 00 00 

FF 00 OO RR RR RR RR E AAAAAAAAAA DD DD KK KK 00 00 

FF 00 OO RR RR RR RR EE AA DD DD KK KK 00 00 cece 
FF 00 00 RR RR RR RR EE AA AA 0D DD KK KK 00 00 cece 
FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD KK KK 000000 coe 
FF 000000 RR RR RR RR EEEEEEEEEE AA AA DDDDDDDD KK KK 000000 cece 
LL IIIIII SSSSSSSS 

iL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL II SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII SSSSSSSS 
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-TITLE FORSREAD_KO - wrt point for FORTRAN READ KEYED yortrs FORMATTED 
SIDENT /1-011/ ~ e: FORREADKO.MAR Edit: JAW1011 


~MARAAARAABAARAAAASLAAELASARAAAAAAALEALESASS SEERA SASS AEE S ERS R RRR E ESE E EERE REESE SI 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
Rit aLGHTS nesenvens TO MAYNARD, MASSACHUSETTS. 


0 

N ACCORDANCE WITH THE TERM ; F SUCH pats AND WITH THE 
ION OF THE ABOVE Spittal NOTICE. THIS SOFT ARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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® ® 
® * 
® ® 
® ® 
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THE INFORMATION _IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oePOnaT ion NOT BF CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH IS 


Y FOR THE USE OR _ RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


(LAR RARARAAASRALASAASALAASE SELES ASARESERERA RASA SERS SERRE SRR ERAS ASRS SRSA A ES SY 


“FACILITY: FORTRAN Support Library - user callable 
ABSTRACT: 


ns the entry point for the FORTRAN 

ing phe en 1/0 statement. It is simply 
BEG with bits in RO which describe the 
FORS$IO_BEG interprets the parameters. 


wr 


MAINTENANCE NOTE: 
The transfer vector (RTLVECTOR+ALLGBL) must have the following: 


COOCOCCOCOCOCOOSCOSOOCOSOOCSOSCOSCOSSOSOSOSOOOOOOSOOOOOOOOOOSoOOO 
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0 
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. TRANSFER FORSREAD_KO 

MASK FOR$$IO 

BRW FORSREAB_KO+2 

This puts the correct mask in entry vector, that is FORSSIO_BEG entry mask. 
00 Furthermore this module must only use RO and R1 
bp since any other register might not be in the entry mask for FORS$IO_BEG. 
3 ENVIRONMENT: User access mode; mixture of AST Level or not 
4 AUTHOR: Richard B. Grove, CREATION DATE: 28-May-78 
00 mODsF IED BY: 
00 - Hastings, 29-July-78 
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; Detailed Current Edit History 6=-SEP-1984 10:59: FORRTL.SRCJFGRREADKO.MAR; 1 


r 

RY 

6 : -SBTTL HISTORY ; Detailed Current Edit History 

0 53 ; Edit History for Version 1 

09 61 ; §-} - Add comment about vectors. TNH 23-June-78 

0 62 ; O-12 = Pass arg in RO, not ROR, add comments. TNH ao i | 0 

it 65 ; 1-001 = Update version number and copyright notice. JBS 16-NOV-78 
00 64 ; 1~858 - Change statement type symbols to be LUBSK... J8S 07-DEC-78 
0000 65 ; 1-88 - Change statement ty e symbols to be ISB$K... JBS 11-DEC-78 
0000 66 ; 1-004 - Add “_"' to the PSECT directive. JBS 22-DEC-7 

44 67 ; 1-005 = Add FORSREAD_KF, FORSREAD_KO, FORSREWRITE SF, FORSREWRITE_SO, 
00 68 ; FORSREAD_IF,~FORSREAD_10, FORSWRITE_IF, FORSWRITE_10, 

0000 69 ; FORSREAD_KU, FORSREWRITE_SU, 

0000 70; SBL 2-Hay-1979 

0000 71 ; 1-006 = Remove all entry pointe that need object time formatting, 
0000 ie : puts ine them in FORSENTRY_OBJ so that we can arrange to 
0000 73 ; oad the format compiler only when it is needed. 

0000 74 ; JBS 26-JUN-1979 

0000 75 ; 1-007 - Remove entry point FORSENCODE_MF; we will code a new module 
0000 76 ; for it and FORS$IO_BEG, to see how much 1/0 initiation time 
0000 77; improves. JBS 02-JUL-1979 

0000 78 ; 1-008 - Do likewuse for FORSREAD_DU and FORSWRITE DU. JBS 03-JUL-1979 
0000 79 ; 1-009 = Remove all entry points and add FORSREAD_KO; each entry 
0000 80 ; point gets its own module do we can selectively load 

0000 81; the necessary UDF and REC modules. JBS 09-JUL-1979 

0000 82 ; 1-010 - New parameter format for FORS$$IO_BEG. SBL 5-Dec-1979 

0000 83 ; 1-011 - Change BRW FORS$IO_BEG+2 to JMP G*FORSSIO_BEG+2. JAW 21-Feb-1981 
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1-011 DECLARATIONS 5a eemaRe F3:8859F FRRANTS acre oT OO ans em cd 


+ EQUATED SYMBOLS: 


OWN STORAGE: 
NONE 


: : -SBTTL DECLARATIONS 
; INCLUDE FILES: 
0 § : 
00 90 
00 91 SFORPAR ; Define inter-module FORTRAN symbols 
000 35 SISBDEF 3; Define statement type symbols 
000 Q 
444 94 : 
000 95 ; EXTERNAL SYMBOLS: 
000099 
0 4 
0000 98 -DSABL GBL : Declare all external symbols 
4444 106 “ -EXTRN FORSSIO_BEG 3; common 1/0 statement processing 
0000 101 : The fot teutng references are to make sure the necessary UDF and REC 
0000 ioe: ; modules are loaded. These are + J routines which are called through 
44 137 3 3; the dispatch tables in FORSSDISPAT 
0000 105 -EXTRN FORSSUDF_RFO, FORSSUDF_RF1, FORSSUDF _RFO 
44 196 ‘< -EXTRN FORSSREC-RKFO, FORSSREC_RKF1, FORSSREC_RKF9 
9444 138 ; The following reference makes sure the format compiler is loaded. 
0000 110 -EXTRN FORSSFMT_COMPIL 
0000 111 
0000 116 $ 
0000 113; MACROS: 
0000 114 ; 
0000 115; NONE 
0000 116; 
000 117 ; PSECT DECLARATIONS: 
000 118; 
0000 119 
eS \$9 -PSECT _FORSCODE PIC,USR,CON,REL,LCL,SHR,EXE,RD,NOWRT,LONG 
1s 
i 
138 
126 
127 
128 
129 
130 
131 


oint for FORTRAN READ KEYED” OBJ 15-SEP-1984 23:58:0 AX/VMS Macro V04-00 P 6 FO 
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09 } ; -SBTTL FORSREAD_KO = READ KEYED OBJECT-FORMATTED 
8 135 3+* 
8 g: ; FUNCTIONAL DESCRIPTION: 
009 138 ; Initialize the FORTRAN I/0 system to perform 
000 iF 3 a READ KEYED OBJECT-FORMATTED 1/0 statement. 
009 19 ; CALLING SEQUENCE: 
itd 128 3 CALL shal ie KO (unit.rl.v, format agr. ee r. 
ae beatae TE ae Seale 
: , err_adr.j end_adr.j. r 
0000 146; 
0000 147 : INPUT PARAMETERS: 
0000 148 ; | 
0000 149 ; unit.rl.v Logical unit number 
0000 150; format “adr. rt.r format string (needs compilation) 
0000 = 151 : key.rx.dx the key of the focore to be read 
0000 136 3 keyid. rlev the number of the ser 
0000 15 ; match.rl.v code for pee to match (EQL, GEQ, GTR) 
0000 154; err_adr.j.rJ optional ERR= address 
0000 155 : end_adr.j.rJ optional END= address 
0000 156; 
0000 157 : IMPLICIT INPUTS: 
0000 =«=—158 : 
0000 159 ; NONE except those used by FORS$I0_BEG. 
00090 160 : 
0000 161 ; OUTPUT PARAMETERS: 
0000 196 3 § 
0000 163; NONE 
0000 164 : 
0000 165 ; IMPLICIT OUTPUTS: 
0000 166 : 
0000 167 ; NONE except those left by FORSSIO_BEG. 
0000 168 : 
0000 169 : COMPLETION CODES: 
0000 170; 
0000 =171 : NONE 
0000 Ze 3 
0000 17 : SIDE EFFECTS: 
0000 174; 
0000 175 : NONE except those of FORS$IO_BEG. 
464 176 ; 
3 177 :-- 
0000 178 
0000' 0000 179 FORSREAD_KO:: MASK FORS$10_ BEG 
50 O10E 8F 3¢ 44 180 MOVZWL #ISBSK_ST_TY_RKF+ - 
B08 181 <1aFORSV_OBJ-FMT>, RO Statement type 
00000002'GF 17 0007 18 JMP 6“PORS$10 _BEG+2 branch past call mask 
000D =«—+118 
000D 184 
000D 185 END 


K 4 
- entry point for FORTRAN READ KEYED OBJ 1 


FORSREAD_KO 5-$60=1986 $338:93 AX/VMS Macro v04-00 Page 
Symbol table 6-SEP-1984 10:59:1 FORRTL.SRCJFORREADKO.MAR; 1 
FORSSFMT COMPIL eeeeenee =X 
FORSS10 BEG eeeereeee =X 
FORSSREC_RKFO erereree =X 
FORSSREC_RKF 1 etereeee x 
FORSSREC_RKF9 eeeeeree =X 
FORSSUDF _RFO eeeeeeee §=6X 
FORSSUDF RF 1 teneeere =X 00 
FORSSUDF _RF9 eeeeeree§ X 00 
FORSREAD_KO 44448 RG 01 
ORSV_OBJ_FMT = €000000 
$K"ST_TY_RKF = 0000000E 

sew e eo we cena nae m ae + 

: Psect synopsis ! 

peo men mama anna ma & 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 3 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_F ORSCODE 0000000D 13.) Git Too PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

$e ee ee eee eee eee en eee eee ee + 
: Performance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 31 00:00:00.09 00:00:01.43 
Command processing 121 00:00:00.65 00:00:05.46 
Pass 131 00:00:01.28 BF 8 eB 
Symbol table sort 0 00:00:00.19 B88 180 -§ 
Pass 2 49 00:00:00.50 00:00:01.32 
Symbol table output 3 00:00:00.02 00:00:00.03 
Psect synopsis output 2 bs SS T3 00:00:00.21 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 339 00:00:02.75 00:00:13.56 
The working set Limit was 1050 pages. 


6735 bytes (14 pages) of virtual memory were used to buffer the intermediate code. 
There were 20 pages of symbol table space allocated to hoid 188 non-local and 0 local symbols. 
185 source Lines were read in Pass 1, produc 1ng 8 object records in Pass 2. 

ma 


9 pages of virtual memory were used to define cros. 
teen een eer nr eee aw een woe re ewe + 
! Macro Library statistics H 
eeeoewmer eae wc ean ee ee eee eres eS 


Macros defined 


Macro Library name 


“$5 2SDUAZE: FFORRTL OB JJFORRTL ALB; 1 2 
$255$DUA28:(SYSLIBJSTARLET.MLB; 0 
TOTALS (all Libraries) 2 


183 GETS were required to define 2 macros. 
There were no errors, warnings or information messages. 
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MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=L1S$:F ORREADKO/OBJ=0BJ$: F ORREADKO MSRC$:F ORREADKO/UPDATE=(ENH$:F ORREADKO) +L1- 
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